Workplace Effectiveness: Dealing with Change/Workplace Effectiveness: Dealing with Change.iso/pc/Tools.Dxr/Internal_12_playFrame-newPlay.ls

Text File | 1998-05-04 | 598 b | 30 lines

on playFrame vPlace
  global gGoFrame
  if vPlace <> #done then
    set gGoFrame to the frame
    go(vPlace)
  else
    if not voidp(gGoFrame) then
      go(gGoFrame)
    else
      alert("ERROR: Issued a playframe #done without calling playframe first.")
      go(1)
    end if
  end if
end

on newPlay vPlace
  global gPlayFrame
  if vPlace <> #done then
    set gPlayFrame to the frame
    play frame vPlace
  else
    if not voidp(gPlayFrame) then
      play done
      go(gPlayFrame)
    else
      alert("ERROR: Issued a newPlay #done without calling newPlay first.")
    end if
  end if
end